www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminchannel_qiye\D_admin_ffff.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<!--#include file=../../inc/ND_class_function.asp-->
<!--#include file=D_inc_lanmu_type.asp-->
<%
AJAXshowLoader()
%>
<style type="text/css">
<!--
.STYLE4 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
<%
if find_dataw("qitashezhi123","0",10)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
use_http_url=0
use_http_post=0
function find_pty(t)
find_pty=""
for iiitti=1 to xpx_length
execute("assii=xpx_aim"&cstr(cint(iiitti)))
if trim(assii)<>"" then
if trim(split(assii,",")(0))=trim(t) then
find_pty=trim(split(assii,",")(1))
exit function
end if
end if
next
end function
biao="[ND_channel]"
sys_content_type=trim(request("sys_content_type"))
dim ppath
set rs112=server.CreateObject("adodb.recordset")
rs112.open "select * from ND_templates_folder_reg_qiye where is_default_template=true",conn,1,1
if rs112.eof then
%>
<script language=javascript>
alert("请先在 模板管理里 选择默认模版,再添加频道");
//AJAXfade(1,'l_list')
</script>
<center>
<br /><br /><br />
请先在 模板管理里 选择默认模版</center>
<%
AJAXcloseLoader()
%>
<%
response.end
else
ppath="templates/"&rs112("templates_folder_path_name")&"/"
scrt_ff="../../"&ppath&iscrtfile
use_http_url=0
use_http_post=0
set fileaw=new Cls_FSO
set filebw=new DosAsp
if fileaw.ReportFileStatus(server.mappath(scrt_ff))=-1 then
'模板目录下不存在"&iscrtfile&"安装脚本文件
sconts=loadfile("../../inc/"&w_web_config_template)
call SaveXMLDocument_newindex(scrt_ff,sconts)
scrt_ff="../../"&ppath&w_files_config
sconts=loadfile("../../inc/"&w_files_config_template)
call SaveXMLDocument(scrt_ff,sconts)
else
'模板目录下存在"&iscrtfile&"安装脚本文件
xm_d_c=ReadXMLDocument(scrt_ff,"all_web_file_name_and_type_config")
scrt_fff="../../"&ppath&xm_d_c
if fileaw.ReportFileStatus(server.mappath(scrt_fff))=-1 then
scrt_ff="../../"&ppath&xm_d_c
sconts=loadfile("../../inc/"&w_files_config_template)
call SaveXMLDocument(scrt_ff,sconts)
end if
end if
ppath="templates/"&rs112("templates_folder_path_name")&"/"
scrt_ff="../../"&ppath&iscrtfile
xm_d_c=ReadXMLDocument(scrt_ff,"all_web_file_name_and_type_config")
scrt_ff="../../"&ppath&xm_d_c
set aasc=ReadXMLDocument_nodes(scrt_ff,"files/file_reg")
end if
%>
<br />
<div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px">
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="adminth" colspan="5"><span class="STYLE4">新建自定义频道文件类型</span></td>
</tr>
<tr bgcolor="#EDF8FE">
<td width="47%">
<form action="D_admin_ffff.asp?do=2" method="post">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#EDF8FE">
<td width="46%" align="right">自定义频道文件类型_说明:</td>
<td width="54%" height="20" align="left"><input type="text" value="" size="20" name="as1"></td>
</tr>
<tr bgcolor="#EDF8FE">
<td width="46%" align="right">内部链接文件: </td>
<td width="54%" height="20" align="left"><input type="text" value="" size="20" name="as2"></td>
</tr>
<tr bgcolor="#EDF8FE">
<td width="54%" height="0" align="left" colspan="2"><input type="hidden" value="1.htm" name="as3"></td>
</tr>
<tr bgcolor="#EDF8FE">
<td width="46%" align="right">文件类型引用标签:</td>
<td width="54%" height="20" align="left">
<%
rndokd=0
do while rndokd=0
Randomize '初始化随机数生成器。
rnddd = cstr((clng(Rnd(255)*8888+8)))&cstr((clng(Rnd(255)*8888+28)))&cstr((clng(Rnd(255)*8888+8)))
rndokd=1
for iiittff=1 to xpx_length
execute("assii=xpx_aim"&cstr(cint(iiittff)))
if trim(assii)<>"" then
if trim(cstr(split(assii,",")(0)))=rnddd then
rndokd=0
exit for
end if
end if
next
loop
%>
<input type="text" value="$page$<%=rnddd%>$" size="20" name="as4h" disabled="disabled">
<input type="hidden" value="<%=rnddd%>" size="20" name="as4">
</td>
</tr>
<tr bgcolor="#EDF8FE">
<td colspan="2" align="center"><input type="submit" value="新 建"></td>
</tr>
</table>
</form>
</td>
<td width="53%" align="center">
<form action="D_admin_ffff.asp?do=3" method="post">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#EDF8FE">
<td width="46%" align="right">频道文件类型(系统已有):</td>
<td width="54%" height="20" align="left">
<select size="1" name="as1">
<option value="no">请选择频道文件类型</option>
<%
for iiittf=1 to xpx_length
execute("assii=xpx_aim"&cstr(cint(iiittf)))
if trim(assii)<>"" then
cc_vv_a=trim(split(assii,",")(0))
cc_vv_b=trim(split(assii,",")(1))
%>
<option value="<%=cc_vv_a%>"><%=cc_vv_b%></option>
<%
end if
next
%>
</select>
</td>
</tr>
<tr bgcolor="#EDF8FE">
<td width="46%" align="right">内部链接文件: </td>
<td width="54%" height="20" align="left"><input type="text" value="" size="20" name="as2" /></td>
</tr>
<tr bgcolor="#EDF8FE">
<td width="54%" height="0" align="left" colspan="2"><input type="hidden" value="1.htm" name="as3" /></td>
</tr>
<tr bgcolor="#EDF8FE">
<td colspan="2" align="center"><input name="submit" type="submit" value="新 建" /></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<br />
<form action="D_admin_ffff.asp?do=1" method="post">
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="37%" align="center" class="adminth"><span class="STYLE4">模板或标签代码引用此文件名用的标签</span></td>
<td width="27%" align="center" class="adminth"><span class="STYLE4">频道文件类型</span></td>
<td width="33%" height="27" align="center" class="adminth"><span class="STYLE4">对应的内部链接文件(勿必以nd_开头)</span></td>
<td width="3%" height="27" align="center" class="adminth"> </td>
</tr>
<input type="hidden" value="<%=aasc.length%>" size="35" name="lenh">
<%
for aiaa=0 to aasc.length-1
aassaa=trim(rep_xml_br(aasc(aiaa).selectSingleNode("filetype").text))
bbssbb=trim(rep_xml_br(aasc(aiaa).selectSingleNode("filename").text))
ccsscc=trim(rep_xml_br(aasc(aiaa).selectSingleNode("to_html_filename").text))
ddssdd=trim(rep_xml_br(aasc(aiaa).selectSingleNode("is_custom").text))
eessee=trim(rep_xml_br(aasc(aiaa).selectSingleNode("custom_page_rem").text))
if cstr(ddssdd)="1" then
sdsdfds=eessee
else
if find_pty(aassaa)="" then
sdsdfds=aassaa
else
sdsdfds=find_pty(aassaa)
end if
end if
%>
<tr bgcolor="#EDF8FE">
<td width="37%" align="center">$page$<%=aassaa%>$</td>
<td width="27%" align="center"><%=sdsdfds%></td>
<% if instr(1,bbssbb,"出错了!,请",1)<>0 then
bbssbb=""
end if
%>
<td width="33%" height="27" align="center">
<input type="hidden" value="<%=aassaa%>" size="35" name="a<%=aiaa%>">
<input type="text" value="<%=bbssbb%>" size="28" name="b<%=aiaa%>">
</td>
<td width="3%" height="27" align="center">
<input type="hidden" value="<%=ccsscc%>" size="28" name="c<%=aiaa%>">
</td>
</tr>
<%
next
%>
<tr bgcolor="#EDF8FE">
<td colspan="4" align="center">
<input type="submit" value="提交" />
</td>
</tr>
</table>
</form>
</div>
<%
Set oXMLDomg = Server.CreateObject("Msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
Public Function ReadXMLDocumentgg(strXMLFile,strNode)
If strNode = "" Or strNode = "0" Then
ReadXMLDocumentgg = oXMLDomg.xml
Else
ReadXMLDocumentgg = trim(rep_xml_br(oXMLDomg.documentElement.selectSingleNode(strNode).text))
End If
End Function
Public Function ReadXMLDocumentxgg(strXMLFile,strNode)
If strNode = "" Or strNode = "0" Then
ReadXMLDocumentxgg = oXMLDomg.xml
Else
set ReadXMLDocumentxgg = oXMLDomg.documentElement.selectSingleNode(strNode)
End If
End Function
Public Function ReadXMLDocument_nodesgg(strXMLFile,strNode)
If strNode = "" Or strNode = "0" Then
ReadXMLDocument_nodesgg = oXMLDomg.xml
Else
set ReadXMLDocument_nodesgg = oXMLDomg.documentElement.selectNodes(strNode)
End If
End Function
Public Function SaveXMLDocumentgg(ByVal strXMLFilei,ByVal strXMLDom)
SaveXMLDocumentgg = False
strXMLFilek = Server.MapPath(strXMLFilei)
oXMLDomg.save strXMLFilek
SaveXMLDocumentgg = True
If Err.Number <> 0 Then
Err.Clear
SaveXMLDocumentgg = False
End If
End Function
function set_value(a,b,c)
scrt_ff="../../"&ppath&iscrtfile
strXMLFile = Server.MapPath(scrt_ff)
oXMLDomg.Load(strXMLFile)
xm_d_c=ReadXMLDocumentgg(scrt_ff,"all_web_file_name_and_type_config")
scrt_ff="../../"&ppath&xm_d_c
strXMLFile = Server.MapPath(scrt_ff)
oXMLDomg.Load(strXMLFile)
set aasc=ReadXMLDocument_nodesgg(scrt_ff,"files/file_reg")
hdddddda=0
for aiaa=0 to aasc.length-1
aassaa=trim(rep_xml_br(aasc(aiaa).selectSingleNode("filetype").text))
bbssbb=trim(rep_xml_br(aasc(aiaa).selectSingleNode("filename").text))
ccsscc=trim(rep_xml_br(aasc(aiaa).selectSingleNode("to_html_filename").text))
if aassaa=trim(a) then
aasc(aiaa).selectSingleNode("filename").text=b
aasc(aiaa).selectSingleNode("to_html_filename").text=c
hdddddda=1
end if
next
if hdddddda=0 then
'set xm_d_aaa=ReadXMLDocumentxgg(scrt_ff,"files")
'set ppssss=xm_d_aaa.appendChild(oXMLDomg.createElement("file_reg"))
'ppssss.appendChild(oXMLDomg.createElement("filetype"))
'ppssss.appendChild(oXMLDomg.createElement("filename"))
'ppssss.appendChild(oXMLDomg.createElement("to_html_filename"))
end if
call SaveXMLDocumentgg(scrt_ff,sconts)
end function
if request("do")="1" then
okkkka=1
for iowe=0 to cint(request("lenh"))-1
if left(lcase(trim(request("b"&cstr(iowe)))),3)<>"nd_" and 1=2 then
okkkka=0
%>
<script language=javascript>
alert("为了方便系统区别频道内部链接文件和一般的文件，频道内部链接文件的文件名必须以nd_开头,系统发现你在某个输入框里输入了非nd_开头的文件名");
history.go(-1);
</script>
<%
exit for
end if
if trim(request("b"&cstr(iowe)))="" then
bbbbbst="出错了!,请在主系统里的菜单与频道管理里配置各频道内部链接文件"
else
bbbbbst=trim(request("b"&cstr(iowe)))
end if
call set_value(request("a"&cstr(iowe)),bbbbbst,request("c"&cstr(iowe)))
next
call all_update_qiantai_web_filenames_config_xml()
%>
<script language=javascript>
<%if okkkka=1 then%>
alert("修改成功!");
<%end if%>
self.location="D_admin_ffff.asp";
</script>
<%
end if
if request("do")="2" then
errpp=0
if trim(request("as1"))="" then
errpp=1
%>
<script language=javascript>
alert("请填写 自定义频道文件类型_说明!");
history.go(-1);
</script>
<%
end if
if trim(request("as2"))="" then
errpp=1
%>
<script language=javascript>
alert("请填写 内部链接文件!");
history.go(-1);
</script>
<%
end if
if left(lcase(trim(request("as2"))),3)<>"nd_" then
errpp=1
%>
<script language=javascript>
alert("为了方便系统区别频道内部链接文件和一般的文件，频道内部链接文件的文件名必须以nd_开头");
history.go(-1);
</script>
<%
end if
if trim(request("as3"))="" then
errpp=1
%>
<script language=javascript>
alert("请填写 生成htm时用的htm文件名!");
history.go(-1);
</script>
<%
end if
if errpp=0 then
scrt_ff="../../"&ppath&iscrtfile
strXMLFile = Server.MapPath(scrt_ff)
oXMLDomg.Load(strXMLFile)
xm_d_c=ReadXMLDocumentgg(scrt_ff,"all_web_file_name_and_type_config")
scrt_ff="../../"&ppath&xm_d_c
strXMLFile = Server.MapPath(scrt_ff)
oXMLDomg.Load(strXMLFile)
set xm_d_aaa=ReadXMLDocumentxgg(scrt_ff,"files")
set ppssss=xm_d_aaa.appendChild(oXMLDomg.createElement("file_reg"))
set ppssss2=ppssss.appendChild(oXMLDomg.createElement("filetype"))
ppssss2.text=trim(request("as4"))
set ppssss3=ppssss.appendChild(oXMLDomg.createElement("filename"))
ppssss3.text=trim(request("as2"))
set ppssss4=ppssss.appendChild(oXMLDomg.createElement("to_html_filename"))
ppssss4.text=trim(request("as3"))
set ppssss5=ppssss.appendChild(oXMLDomg.createElement("custom_page_rem"))
ppssss5.text=trim(request("as1"))
set ppssss6=ppssss.appendChild(oXMLDomg.createElement("is_custom"))
ppssss6.text="1"
call SaveXMLDocumentgg(scrt_ff,sconts)
call all_update_qiantai_web_filenames_config_xml()
%>
<script language=javascript>
alert("添加成功!");
self.location="D_admin_ffff.asp";
</script>
<%
end if
end if
if request("do")="3" then
errpp=0
if trim(request("as1"))="no" then
errpp=1
%>
<script language=javascript>
alert("请选择 频道文件类型!");
history.go(-1);
</script>
<%
end if
if trim(request("as2"))="" then
errpp=1
%>
<script language=javascript>
alert("请填写 内部链接文件!");
history.go(-1);
</script>
<%
end if
if left(lcase(trim(request("as2"))),3)<>"nd_" then
errpp=1
%>
<script language=javascript>
alert("为了方便系统区别频道内部链接文件和一般的文件，频道内部链接文件的文件名必须以nd_开头");
history.go(-1);
</script>
<%
end if
if trim(request("as3"))="" then
errpp=1
%>
<script language=javascript>
alert("请填写 生成htm时用的htm文件名!");
history.go(-1);
</script>
<%
end if
scrt_ff="../../"&ppath&iscrtfile
strXMLFile = Server.MapPath(scrt_ff)
oXMLDomg.Load(strXMLFile)
xm_d_c=ReadXMLDocumentgg(scrt_ff,"all_web_file_name_and_type_config")
scrt_ffaa="../../"&ppath&xm_d_c
set aasc=ReadXMLDocument_nodes(scrt_ffaa,"files/file_reg")
for aiaa=0 to aasc.length-1
aassaa=trim(rep_xml_br(aasc(aiaa).selectSingleNode("filetype").text))
if aassaa=trim(request("as1")) then
%>
<script language=javascript>
alert("该 频道文件类型 的设置 在当前模板中已存在,请直接在下面修改,不用再添加!");
self.location="D_admin_ffff.asp";
</script>
<%
errpp=1
end if
next
if errpp=0 then
scrt_ffaa="../../"&ppath&xm_d_c
strXMLFile = Server.MapPath(scrt_ffaa)
oXMLDomg.Load(strXMLFile)
set xm_d_aaa=ReadXMLDocumentxgg(scrt_ff,"files")
set ppssss=xm_d_aaa.appendChild(oXMLDomg.createElement("file_reg"))
set ppssss2=ppssss.appendChild(oXMLDomg.createElement("filetype"))
ppssss2.text=trim(request("as1"))
set ppssss3=ppssss.appendChild(oXMLDomg.createElement("filename"))
ppssss3.text=trim(request("as2"))
set ppssss4=ppssss.appendChild(oXMLDomg.createElement("to_html_filename"))
ppssss4.text=trim(request("as3"))
set ppssss5=ppssss.appendChild(oXMLDomg.createElement("custom_page_rem"))
ppssss5.text=""
set ppssss6=ppssss.appendChild(oXMLDomg.createElement("is_custom"))
ppssss6.text="0"
call SaveXMLDocumentgg(scrt_ffaa,sconts)
call all_update_qiantai_web_filenames_config_xml()
%>
<script language=javascript>
alert("添加成功!");
self.location="D_admin_ffff.asp";
</script>
<%
end if
end if
%>
<script language=javascript>
AJAXfade(1,'l_list')
</script>
<%
AJAXcloseLoader()
%>